home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 December / PCWDEC06.iso / Software / Trial / Paint Shop Pro XI / Data1.cab / wmdefault.fs.0160FC08_F3D9_4869_9D41_C611C16F42D5 < prev    next >
Encoding:
Text File  |  2005-06-08  |  782 b   |  24 lines
  1. # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: WmDefault.fs,v 1.1.2.1 2001/11/03 05:20:16 idiscovery Exp $
  4. #
  5.  
  6. proc tixSetFontset {} {
  7.     global tixOption
  8.  
  9.     package require wm_default
  10.     if {![info exists ::wm_default::wm]} {
  11.     wm_default::setup
  12.     wm_default::addoptions
  13.     }
  14.  
  15.     set tixOption(font)     $::wm_default::system_font
  16.     set tixOption(bold_font)    [concat $::wm_default::system_font bold]
  17.     set tixOption(menu_font)    $::wm_default::menu_font        
  18.     set tixOption(italic_font)  [concat $::wm_default::system_font italic]
  19.     set tixOption(fixed_font)   $::wm_default::fixed_font
  20.     set tixOption(text_font)   $::wm_default::text_font
  21.     set tixOption(border1)      $::wm_default::borderwidth
  22.  
  23. }
  24.